home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Programming / JForth / Textra120 / Scripts / JForth_Scripts / interpret.textra < prev    next >
Encoding:
Text File  |  1991-12-31  |  287 b   |  18 lines
  1. /* Execute selected text as JForth code */
  2.  
  3. options results
  4.  
  5. expression= 'EX= '
  6. get select text
  7. parse var result num  thisselect
  8. if num='NO' then exit
  9.  
  10. address 'JFORTH' thisselect
  11.  
  12. do until num=0
  13.    get select next
  14.    parse var result num thisselect
  15.     address 'JFORTH' thisselect
  16.    end
  17.  
  18.